home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / grafik / viewer / agassm / rexx / delete....agassm < prev    next >
Encoding:
Text File  |  1996-07-16  |  1.1 KB  |  54 lines
  1. /* AGASSM - Delete ARexx Script */
  2. /* © 1995 Paul Vernon */
  3.  
  4. Port = Show('P','AGASSM')
  5. If Port = 0 then do
  6.   Exit
  7.   End
  8.  
  9. ADDRESS COMMAND 'C:RequestFile > T:AGASSM-Temp TITLE "AGASSM - Delete file" NOICONS'
  10.  
  11. succ = Open(file,'T:AGASSM-Temp','r')
  12. If succ = 0 then do
  13.   Exit
  14.   End
  15. String=ReadLn(file)
  16. succ = Close(file)
  17.  
  18. ADDRESS COMMAND 'C:Delete T:AGASSM-Temp QUIET'
  19.  
  20. If String = '' then do
  21.   Exit 
  22.   End
  23. String = Left(String,Length(String)-1)
  24. String = Right(String,Length(String)-1)
  25. Filename = String
  26.  
  27. ADDRESS COMMAND 'C:RequestChoice > T:AGASSM-Temp "AGASSM - Delete File" "'Filename' and its icon?" "  OK  |Cancel"'
  28.  
  29. succ = Open(file,'T:AGASSM-Temp','r')
  30. If succ = 0 then do
  31.   Exit
  32.   End
  33. String = ReadLn(file)
  34. succ = Close(file)
  35.  
  36. ADDRESS COMMAND 'C:Delete T:AGASSM-Temp QUIET'
  37.  
  38. If String = '0' then do
  39.   Exit
  40.   End
  41.  
  42. ADDRESS AGASSM
  43. If Exists(Filename) then do
  44.   ShowMsg 2 'Deleting : 'Filename
  45.   ADDRESS COMMAND 'C:Delete "'Filename'" QUIET'
  46.   End
  47.  
  48. If Exists(Filename'.info') then do
  49.   ShowMsg 2 'Deleting icon : 'Filename'.info'
  50.   ADDRESS COMMAND 'C:Delete "'Filename'.info" QUIET'
  51.   End
  52.  
  53. Exit
  54.